      PROGRAM formattest

      implicit none

      DOUBLE PRECISION :: fm, fp, w
      INTEGER i

      i  = 1;
      fm = 2.3456;
      fp = 5.6789;
      w  = 8.2345;

      print '(A2,I2,A5,F8.2,A5,F8.2,A5,F8.2)', "i=", i, ", fm=", fm, ", fp=", fp, ", w=", w

      end
